Sub color()
   ' 获取行数据
   Const name As String = "查找字符串"
   
   rownum = Range("D1000").End(xlUp).Row
   colnum = Range("Z3").End(xlToLeft).Column
   
   For i = 3 To rownum
    If Not Range("D" & i).Find(name) Is Nothing Then
      Range(Cells(i, 1), Cells(i, colnum)).Interior.color = vbRed ' RGB(102, 153, 0)
    End If
   Next
   
End Sub